Sub ope3()
    Dim cadena As String
    cadena = "JUANTO"
    If cadena Like "JU*" Then
        Debug.Print "Si"
    End If
End Sub
